10 POKE53281,12:POKE53280,12:PRINTCHR$(14):POKE198,.
15 PRINT"[147][144]S[146]CREEN OR P[146]RINTER (S/P)?"
16 WAIT198,1:GETP$:PRINT"[147]";:IFP$="P"THENOPEN4,4,7
20 FORI=1TO22
30 READA$
40 IFA$="[157]"THENGOSUB80:CLOSE4:END
50 PRINTA$:IFP$="P"THENPRINT#4,A$
60 NEXT
70 GOSUB80:GOTO20
80 PRINT"      PRESS A KEY TO CONTINUE[146]";
90 GETB$:IFB$=""THEN90
100 PRINT"[147]":RETURN
10000 DATA"         [196][207][211] 5.1 [201][206][211][212][210][213][195][212][201][207][206][211]
10010 [131]"      (null)REPARED BY ASCRED (null)AYBERGER
10020 DATA"           [196]ECEMBER 4, 1984
10030 [131]"        (null)PDATED (null)EPTEMBER 1985
10040 DATA"
10050 [131]"(null)(null)ATNSTR$ (null)RIGHT$(null)LEFT$:              ATNLEN(null)RIGHT$(null)ATN(null)VAL (null)RIGHT$(null)LEFT$:
10060 DATA"[204][207][193][196]'[195]-64 [215][197][196][199][197]',8           [210][213][206]
10070 [131]"(null)(null)ATNSTR$'STR$(null)(null) 5.1',8,1            (null)(null)(null)52224
10080 DATA"
10090 [131]"             LEN(null)(null)(null)ATN(null)STR$(null)
10100 DATA"
10110 [131]"VALITHER THE '@' OR '>' SIGN MAY BE USED 
10120 DATA"TO START A [196][207][211] 5.1 COMMAND.  [212]HE '?' 
10130 [131]"AND '*' MAY BE USED FOR PATTERN 
10140 DATA"MATCHING.
10150 [131]"
10160 DATA"[211][217][206][212][193][216]                 [197][216][193][205][208][204][197]/[195][207][205][205][197][206][212][211]
10180 [131]"@                      (null)EADS THE ERROR
10190 DATA"                       CHANNEL AND
10200 [131]"                       DISPLAYS ITS
10210 DATA"                       STATUS.
10220 [131]"
10230 DATA"@$                     [196]ISPLAYS THE
10240 [131]"                       DIRECTORY
10250 DATA"                       WITHOUT
10260 [131]"                       DESTORYING
10270 DATA"                       ANY PROGRAM
10280 [131]"                       RESIDING IN
10290 DATA"                       MEMORY. [208]AUSE
10300 [131]"                       LISTING BY
10310 DATA"                       PRESSING SPACE
10320 [131]"                       BAR.
10330 DATA"
10340 [131]"@$$                    STR$ISPLAYS DISK
10350 DATA"                       NAME AND NUMBER
10360 [131]"                       OF 'BLOCKS FREE'
10380 DATA"
10390 [131]"@$*=(null)                  STR$ISPLAYS ALL (null)(null)CHR$
10410 DATA"                       DIRECTORY FILES.
10430 [131]"
10440 DATA"@$*=[211]                  [196]ISPLAYS ALL [211][197][209]
10460 [131]"                       DIRECTORY FILES.
10480 DATA"
10485 [131]"
10490 DATA"@$*=[210]                  [196]ISPLAYS ALL [210][197][204]
10510 [131]"                       DIRECTORY FILES.
10530 DATA"
10540 [131]"@LEN:NEWFILE=OLDFILE     @LEN:GAME=WORK
10550 DATA"                       WILL MAKE A COPY
10570 [131]"                       OF A FILE
10580 DATA"                       NAMED 'WORK' AND
10600 [131]"                       CALL IT 'GAME'.
10610 DATA"                       [212]HIS COMMAND CAN
10630 [131]"                       ALSO BE USED TO
10640 DATA"                       COMBINE FILES.
10650 [131]"                       (null)EE YOUR 1541
10660 DATA"                       MANUAL FOR
10670 [131]"                       DETAILS.
10680 DATA"
10690 [131]"@RIGHT$                     (null)ETURNS THE DISK
10710 DATA"                       DRIVE TO THE
10720 [131]"                       SAME STATE
10730 DATA"                       AS WHEN POWERED
10740 [131]"                       UP.
10750 DATA"
10755 [131]"
10760 DATA"@[206]:DISKNAME,ID         @[206]:FIVE,GG
10770 [131]"                       WILL FORMAT A
10780 DATA"                       DISKETTE AND
10790 [131]"                       IDENTIFY IT AS
10800 DATA"                       'FIVE' WITH A
10810 [131]"                       DISK ID OF 'GG'
10820 DATA"
10830 [131]"@(null):NEWNAME=OLDNAME
10840 DATA"@[210]:BUSINESS=PLEASURE  WILL CHANGE THE
10850 [131]"                      NAME OF A PROGRAM
10870 DATA"                      NAMED 'PLEASURE'
10880 [131]"                      TO 'BUSINESS'
10890 DATA"
10900 [131]"@(null):FILENAME           @(null):TEST  WILL
10910 DATA"                      SCRATCH A FILE
10920 [131]"                      NAMED 'TEST'
10930 DATA"                      FROM DISK.
10940 [131]"
10942 DATA"
10944 [131]"
10946 DATA"
10948 [131]"
10950 DATA"@[214]                    @[214]   WILL
10960 [131]"                      RE-ORGANIZE YOUR
10970 DATA"                      DISKETTE SO THAT
10980 [131]"                      YOU CAN GET THE
10990 DATA"                      MOST FROM THE
11000 [131]"                      AVAILABLE SPACE.
11010 DATA"                      [212]HIS COMMAND
11020 [131]"                      SHOULD NOT BE
11030 DATA"                      USED WITH RANDOM
11040 [131]"                      FILES.
11050 DATA"
11060 [131]"(null)LEFT$VAL ASC(null)(null)(null)(null)(null)RIGHT$(null)CHR$ LEN(null)(null)(null)ATN(null)STR$(null) LENATN(null) PEEKVAL (null)(null)VALSTR$ RIGHT$(null) 
11070 DATA"[201][206] [195][207][206][202][213][206][212][201][207][206] [215][201][212][200] [193] [196][201][211][208][204][193][217][197][196] 
11080 [131]"STR$RIGHT$(null)VALLEN(null)(null)(null)(null) (null)(null) RIGHT$(null) STR$RIGHT$(null)VALLEN(null) (null)(null)STR$VAL.
11090 DATA"
11100 [131]"/FILENAME               /DOGS  WILL
11110 DATA"                        LOAD A [194][193][211][201][195]
11120 [131]"                        PROGRAM NAMED
11130 DATA"                        'DOGS'.
11140 [131]"
11142 DATA"
11144 [131]"
11150 DATA"^FILENAME               ^DOGS  WILL
11160 [131]"                        LOAD AND RUN A
11170 DATA"                        [194][193][211][201][195] PROGRAM
11180 [131]"                        NAMED 'DOGS'.
11190 DATA"
11200 [131]"%FILENAME               %CATS  WILL
11210 DATA"                        LOAD A [205][204]
11220 [131]"                        PROGRAM CALLED
11230 DATA"                        CATS TO ITS
11240 [131]"                        PROPER LOAD
11250 DATA"                        ADDRESS.
11260 [131]"
11270 DATA"<BACK ARROW>FIELNAME    WILL SAVE A
11280 [131]"                        PEEKATN(null)RIGHT$LEN PROGRAM
11290 DATA"                        CALLED
11300 [131]"                        'TEST'.
11310 DATA"                        <BACK ARROW)
11320 [131]"                        @0:TEST  WILL
11330 DATA"                        DO A SAVE AND
11340 [131]"                        REPLACE FOR A
11350 DATA"                        [194][193][211][201][195] PROGRAM
11360 [131]"                        CALLED 'TEST'.
11370 DATA"[157]